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16-Sep-1984 02:54 VAX=-11 FORTRAN V3.4-56 Pa 1 

730071382 90:98:34 DISKSVMSMASTER: ERF.SRCJERFINICOM.FOR: 4. 
Subroutine INIT_COMMONS 

Version: *v04-000" 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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C 
C 
C 
Ce 
te ® 
Ce rs 
Ce + 
Ce * 
0010 Ce * 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
pols C* ONLY IN ACCORDANCE WITH SUCH LICENSE AND WITH THE * 
001 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
pote es TRANSFERRED. * 
® 
0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Be , Fs CORPORATION. * 
© 
00 ¢ C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
88 i cs SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
0036 i ccansiiatinmishiniiidieerbes ines tiaca catalina nee ctaiceetieata 
C 
0058 C++ 
0029 C 
a8 : AUTHOR: CREATION DATE: 6-Sep-1983 
tT) : Functional Description: 
0034 C This routine initializes the data commons used by the device 
Be? ; dependent fortran routines. 
ae 
sit : Modified By: 
0040 C v03-002 SARO276 Sharon A. Reynolds 20-Jun-1984 
Bnet : Added qio function code text for TMSCP support. 
0068 es 
0044 C-- 
0045 
Bose 
004 C 
0048 C Include files 
0049 C : 
0050 Include ‘SRC$:QIOCOMMON.FOR /nolist' 
Oat8 Include ‘SRC$:MODES.FOR /nolist' 
8 36 Include ‘SRC$:OPCODES.FOR /nolist' | 
B 
38 C Initialize the QIOCOMMON. This common contains all of the 
394 C Q10 codes. 


INIT COMMONS ig-e Sep-1984 2 9: Og: 3 VAX=11 FORTRAN V¥3.4-56 page 2 


-Sep-1984 DISKSVMSMASTER: LERF .SRCJERF INICOM.FOR; 
5 C 
36 jio$ =n0P = "NO OPERATION®' 
9 io$_unload = *UNLOAD®' 
a8 103. loadmcode = ‘LOAD MICRO-CODE*' 
“see = *SEEKe' 
5 io$ spacefile = ‘SPACE FILE(S 
1 io$_startmproc = peer NICROSPROCESSOR®* 
8 io$_recal = *RECALIBRATE®*' 
Q jos. atop = ‘STOP DEVICE®' 
04 ryeie = "DRIVE CLEAR®' 
05 ios on tialize = ‘INITIALIZE*' 
§$ io$_release = ‘RELEASE PORT®' 
08 io$-setclockp = ‘SET CLOCK (PHYSICAL)®*' 
09 io$_offset = "OFFSET HEADS®*' 
0410 io$_erasetape = ‘ERASE TAPE®' 
0411 io$_startdatap = ‘START DATA (PHYSICAL)®*' 
brig io$_retcenter = ‘RETURN TO CENTRE LINE®’ 
'e io$_qstop = "QUEUE STOP* 
14 io$_packack = "PACK ACKNOWLEDGE®*’ 
0415 o$_search = ‘SEARCH FOR SECTOR®' 
B18 io$_spacerecord = ‘SPACE RECORD(S)*' 
0418 io$_writecheck = "WRITE CHECK*’ 
0419 io$S_writepblk = ‘WRITE PHYSICAL BLOCKs" 
0420 io$_readpblk = *READ PHYSICAL BLOCK* 
0421 o$_writehead = "WRITE HEADER AND DATA®' 
04 ; io$_readhead = "READ HEADER AND DATA®' 
04 ios. _writetrackd = ‘WRITE TRACK DESCRIPTOR®' 
0424 io$_readtrackd = ‘READ TRACK DESCRIPTOR®' 
0425 io$_rereadn = *RE-READ ~ XT! 
baS$ io$_rereadp = "RE-READ PREVIOUS*' 
b256 io$_writeret = "WRITE PHYSICAL BLOCK RETRY®’ 
9k 34 ios _writecheckh = ‘WRITE oars HEADER AND DATA®' 
0430 io$_readpreset = "READ IN PRESET* 
0431 io$_startspndl = "START SPINDLE®' 
04 § io$_setchar = "SET CHARACTERISTICS*' 
04 io$_sensechar = “OE NSE CHARACTERISTICS#" 
0434 io$_writemark = ‘WRITE TAPE MA 
be 5 io$_wrttmkr = "WRITE TAPE MARK "RETRY®® 
io$_diagnose = *DIAGNO 
043 los. format = "SET nEDIA gSensity. REFORMAT DISK*' 
ek io$-clean = "CLEAN T 
peey io$_writelblk = ‘WRITE LOGICAL BLOCK*’ 
41 io$_readlblk = "READ LOGICAL BLOCK*' 
366g o$_rewindoff = ‘REWIND, GO OFF=LINE®' 
044 o$_setmode = "SET MODE®" 
0444 jos _reying = "REWIND* 
45 io$_skipfile = "SKIP FILE(S)®° 
4 io$_skiprecord = ‘SKIP RECORD(S)*' 
4 io$_sensemode = “DENSE MODE®*' 
48 io$_writeof = "WRITE END-OF- *° 
$2 ioS_writevblk = ‘WRITE VIRTUAL BLocke' 
51 io$_readvblk = "READ VIRTUAL BLOCK’ 


13 
if-Sep-1984 99:08:38 DESKSUMSRASTENSEERE SCIERFINICOM.FORTT® > 


oe § jo$_access = ‘ACCESS FILE/DIRECTORY EN 
4 jio$_create = eeeeee FILE/DIRECTORY ENTRY®*' 
8 4 jo$_deaccess = "DEACCESS FILE®' 
5 io$_delete = ‘DELETE FILE/DIRECTORY ENTRY®' 
oc89 ld-mtclech so HIRO 
0458 io$_acpcontrol = ‘ACP CONTROL FUNCTION®' 
$80 joScacunt«” = "ROUNT VOLUME®* 
0461 > 
preg io$_rdstats = "READ STATISTICS*' 
gre io$_writecsr z ‘WRITE CONTROL AND STATUS REGISTER®’ 
bees Jo$creadcsr == {READ CONTROL AND STATUS RESISTER®' 
sss iSevtaseettey’ © SARS EMBERS” 
readwthbuf = ’ 
0468 io$_writebufncrce = ‘WRITE BUFFER WITH NO CRC®' 
0469 io$_readwthxbuf = ‘READ WITH TRANSPARENT BUFFER®' 
0470 io$_available = ‘AVAILABLE, NO SPIN DOWN®' 
ae io$-dse = "DATA SECURITY ERASE®' 
047 io_strin *Q10 FUNCTION CODE*' 
0474 qio_ 9 = E 
0476 C 
of AA ; Initialize the MODES common. It contains the cpu modes. 
0479 modes(0) = ‘KERNEL*' 
0480 modes(1) = ‘EXECUTIVE®' 
0481 poesia = *SUPERVISOR®*' 
pees modes(3) = "USER®' 
Rear modes(4) = "INTERRUPT®*' 
0485 
0486 C 
0487 C Initialize the OPCODES common. It contains the operation 
et : codes/text that apply to the VAX instruction set. 
0490 opcodes('O'x) = "HALT®’ 
0491 opcodes('1*x) = "NOP®’ 
B66 oocodest (6.23 = *REI®' 
868 opcodes('3'x) = ‘BPT*' 
94 opcodes('4'x) = ‘RET®' 
si ae an 
x + 
0497 Hee et oo 2s = *SVPCTX#’ 
98 socodess 3.8 * ‘CVTPS#® 
$800 opcodes ("A") - “INDEX®* 
3 epeodes (sess) = sPnogeRe 
50 opcodes('D'x) = ‘PROBEW*' | 
8 SpesgeSE8 = sHtRaUES 
x) = 
5 
5 opcodes('10'x) = "BSBBt' 
508 age og TE *x) = "BRB®’ | 
| 
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IN1T_ COMMONS 16-Sep-1984 00:02:54 VAX-11 FORTRAN V3.4-56 Page 4 
-Sep- 255: K$V : ° N FOR; 
: $ : 1384 9 9g 34 DISKSVMSMASTER eRe SRCIJERF INICOM q 
eocogess 16.5} = "BNEQ, BNEQU*' 
1 opcodes('15'x) = ‘BEQL, BEQLU*' 
1 opcodes t 13.83 = "BGTRe' 
\¢ opcodes('15'x) = "BLEQs' 
2} eocodes) (19,2 = "'JSBr’ 
14 opcodes('17'x) = ‘JMPs' 
515 cocodes) 13,52 = ‘BGEQr’ 
21$ opcodes('19'x) = ‘BLSS*' 
1 opcodes(‘1A'x) = ‘BGTRU®' 
0518 opcodes('1B'x) = ‘BLEGU®’ 
0519 opcodes("1C'x) = ‘BvCs' 
be 0 opcodes('1D'x) = ‘BvS*' 
521 opcodes(‘1E'x) = ‘BGEQU, BCCe' 
82 ¢ opcodes('1F'x) = "BLSSU, BCS*' 
0524 opcodes('20'x) = ‘ADDP4*' 
82 5 opcodes('21'x) = ‘ADDP6*' 
526 opcodes('22'x) = ‘SUBP4*' 
0527 opcodes('25'x) = ‘SUBP6*' 
0528 opcodes('24'x) = "CVTPT®' 
0529 opcodes('25'x) = ‘MULP®' 
05 opcodes(' 28 = "CVTTP.' 
0531 opcodes('27'x) = ‘DIVPs' 
05 § opcodes('28'x) = aa 
$287 opcodes('29'x) = "CMPC3*' 
05 opcodes('2A'x) = ‘SCANC*’ 
0535 opcodes('2B'x) = ‘SPANC*' 
0536 opcodes('2C'x) = "MOVC5*' 
beac opcodes('2D'x) = ‘CMPC5*' 
538 opcodes('2E'x) = ‘MOVTCs' 
th 44 opcodes('2F'x) = "MOVTUC®’ 
0541 opcodes('30'x) = ‘BSBWt' 
B26 opcodes('31'x) = "BRwe’ 
054 opcodes (' 4.53 = *CVTWL*' 
0544 opcodes('33'x) = ‘'CVTWBt' 
0545 opcodes('34'x) = "MOVPs' 
0546 opcodes(*35'x) = ‘CMPP3*' 
0547 opcodes (' 28 = *CVTPL*’ 
0548 opcodes('37'x) = ‘CMPP4*' 
0549 opcodes('38'x) = ‘EDITPC®' 
8220 opcodes('39'x) = "MATCHCt' 
551 opcodes('3A'x) = ‘LOCC#' 
226 opcodes('3B'x) = ‘SKPC®' 
55 opcodes('3C'x) = *MOVZUL*" 
554 opcodes(*3D'x) = ‘ACBW* 
Seee opcodes('3E'x) = ‘MOVAW*’ 
228 opcodes('3F'x) = "PUSHAW*' 
0358 opcodes('40'x) = ‘ADDF2*' 
559 opcodes('41'x) = ‘ADDF3*' 
0560 opcodes('42'x) = ‘SUBF2*' 
b204 opcodes('45'x) = ‘SUBF35*' 
266 opcodes('44'x) = "MULF2*' 
56 opcodes('45'x) = ‘MULF5*° | 
564 opcodes('46'x) = ‘DIVF2*' 
565 opcodes('47'x) = ‘DIVF5*' 
| 
| 
| 
j 


INIT_ COMMONS 
13 
2 90:08:85 | Seed ORT eeN iat 
VMSMASTER: TERE SRCJERFINICOM.FORSY® 
-FOR; | 


0 
opco esti ome = (CVTFBS: “Sep-19 
5 opcodes((GA\x} = vevieee’ iene 

71 shee nee B'x) = 'CVTRFL®® 

7 Coc odes t+ ap x) = ‘CVIBF® 

8 opcodes( "Ze x) = 'CVTWFe' 

o3f8 opcodes(*aF'x) = *ACBF®® 
® 

£6 opcodes('50' . 

7 opcodes (' il = 'MOVF®’ 

? opcodes (' *x) = 'CMPFS" 
278 Spentest® x) = "MNEGF®’ 
580 Spesdeet® 7.33 > ‘TSTFS#' 

Ht mane not HS + EVIRDE® 
Bie SRERESSEE Sli. 
O32 opcodes ($9"x} = ‘RESERVED®, 
a8) seegest 38K} SSR SENERS 
0589 aoe ee Cix) = wntentet 
0590 ooo tS Bix) = tInsatie® 
0 ° est, E'x) = ‘RE nl 
0398 peodes(*SE*x) = *REMOTIS® 

® 
059 opcodes(' 

594 coeodes ("61 'x) = 'ADDD2*" 

595 opcodes(' "x) = *ADDD3*! 
0596 ate HE *x) = ‘SUBD2*' 
0597 opcodes(' *x) = ‘SUBD3*! 
0598 opcode BS Bel = *MULD2*' 
0599 opcodes ts eatn = *MULD3*' 
0600 opcodes teeta) = "DIvd *? 
0601 sane net *x) = ‘DIVD5e" 
060 opcode tog ate *CVTDB*' 

‘ see ete ets = *CVTDWe' 
opcodes ('6B' = "CVTDL*' 
0605 opcodes(' *x) = *CVTRDL#" 
0606 ee ret gy aE = *CVTBD*' 
0607 Soe odes('6e"x) = 'CVTWD®* 
& opcodes ('6F *x) ~ ‘kiukes 

10 opcod “7H° 

11 opcodes (ea) = "MOVD*' 

1 opcodes(" *x) = ‘CMPD*" 

13 Saas ee *x) = *MNEGD*’ 

14 opcodes ( 731x) = *TSTD®*' 

15 opcodes(' 4'x) = *EMODD®’ 

1 opcod s(°75'x) = (POLYD®! 

13 wee nee s = {CVIDF 

18 opcodes( +7 bs {RESERVED®" 

0 opcogesred *x) = *ASHQ#? 

0631 opcodes {1 fh.n) = *ERUL®® 

0622 opcodes(*7C'x) - eh 
opcodes("7D'x) = *ehee ,CLADS® 


—- 


IN1T_COMMONS 
3 
i 
: opcodes TEx) = *pG e 
*7F*x) = ° ynA < 
opcod 4 PUSHAG MOVAD*' . sai : | 
: oe on = een ° PUSHAD®*'* Sep-1984 90:98:35 VAX=-11 F 
t - : 
1 c e 7 x) = a! MSM. 4° 
| = : DISKSV AOTeR 4-56 
06 opcodes(' 4! tr a a 
opcodes 4°) - Fre | e! ~SRCIJERFINIC Pa 
opcodes: 5'x) = ° LB « OM.FOR: 1. 6 
5 opcodes(' $0) : BV % 
be opcodes(' *x) = 'D Veer, 
opcodes (' 8.3} . ‘B15 : 
06 ee ot ot He B1SaS: 
0639 opcodes(' a4) ‘Ice ; 
0640 opcodes(' - F- BIC ; 
0641 opcodes(' C'x) = ' AS See 
064 opcodes(' te “One ; 
eek opcodes(' x . “INE ; 
St F°xn) = °C epee. 
0645 opcodes('90' sani 
064s opcodes('9 mw 5 ey 
0647 see ett tt = res" 
Os? opcodes t 98's) 7° On 
0649 opcodes ("9 x) = ations 
0650 Hee oe at toe s eres. 
0651 opcodes(' 5'x) = aT ee 
892 opcodes('9 *x) = ‘lees 
2g opcodes('9 x) = Ly 
0654 Soc odest 899" ed = ms a 
0655 Hae oe tHe ‘evTBGe 
56 opcodes ( 9p8) : ‘NOVEL 
57 opcodes('9 os : ‘nOViey" 
58 tee et arti = 0A te 
94s see et gts as . *ACBBS® 
see red ts St . ‘AOVAB 
0661 F'x) = *PUSHABS 
bee opcodes('A0' zm 
ete ret ft tt = «Ap 
opcodes (‘A im : ‘ADDY : 
5 opcodes(‘A a . SUB 
opcodes('A *x) = 'S wee. 
7 ate et eT = Free . 
opcodes(‘A x) = ‘MUL . 
9 opcodes("A *x) = 'D tt 
3 pescees x) = “Piva a’ : 
: tee mee By x) x ‘Bise ; 
7 opcodes ( arent 2 Bis . 
8 eee oy tyr ty = ‘Bice . 
74 opcodes (°A a : pte ; 
75 opcodes tiAbta> = * onus 
7 opcodes ( et s ORY ~ 
7 meee net Be Re = AMES “f 
78 F°x) = °C EGus 
79 opcodes (*B0' aol 
opcodes te uD = SCRPus* 
i] : 
es("B2*x) > hconde 
MCOMWe * 
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opcodes ('B7'x) 
opcodes (‘'B8'x) 
opcodes ('B9'x) 
opcodes ('BA*x) 


opcodes('CO'x) 
opcodes('C1'x) 
opcodes('C2'x) 
opcodes('C3'x) 
opcodes('C4'x) 
opcodes('C5'x) 
opcodes(‘*C6'x) 

x 
opcodes ('C ‘ ) 


opcodes('DO'x) 
opcodes('D1'x) 
opcodes (‘'D2'x) 
opcodes ('D3'x) 
opcodes ('D4'x) 
opcodes('D5'x) 


opcodes(‘*EO'x) 
"E1"x) 
opcodes (*E2'x) 


opcodes (‘E 
opcodes (‘E 
opcodes (‘E 
opcodes('E 
opcodes('E 


CONAN 
wwewwrww 


SCLRL, CLRF#' 
*TSTL* 


MOVAF*' 


J Se' 


MOVAL, 
*PUSHAL, PUSHAF ** 
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56 
SR 


page 
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1984 00:02:54 VAX-11 FORTRAN V3.4-56 Pa | 
300-13 00:98:38 DISKSVMSMASTER: CERF, SRCJERFINICOM.FOR SY 
0737 opcodes("E9'x) = "BLBCt' | 
es epeodestEA0N} © SfrSe: 
es = 
740 opcodes (*EC'x) = 'CMBVs" | 
741 opcodes("ED'x) = 'CMPZVe" 
74 opcodes(*EE’x) = ‘EXTv*' 
eh opcodes("EF*x) = "EXTZv#" | 
745 opcodes("FO'x) = ‘INSV*' 
74 opcodes('Fi'x) = ‘ACBL*' 
74 opcodes(*F2'x) = ‘AOBLSS*' 
748 see et tr et = *AOBLEQ' 
or28 opcodes('F4'x) = ‘SOBGEQ*’ 
0750 opcodes('F5'x) = ‘SOBGTR®' 
oF a4 opcodes('F6'x) = ‘CVTLB*' 
or 2g opcodes( 'F *x) = "CVTLWe’ 
07 opcodes("F8'x) = ‘ASHP®' 
0754 opcodes('F9'x) = "CVTLPs' 
755 opcodes('FA'x) = ‘'CALLG*' 
756 opcodes('FB'x) = ‘CALLS*’ 
0757 opcodes(*FC*x) = ‘xFC®' 
0758 opcodes('FD'x) = ‘ESCD*' 
0759 opcodes('FE'x) = ‘ESCE®' 
37 eo opcodes("FF'x) = "ESCFe' 
B06 Return 
076 End ! Module 
PROGRAM SECTIONS 
Name Bytes Attributes 
SCODE 3846 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 2801 PIC CON REL LC SHR NOEXE RD NOWRT LONG 
3 Q1IOCOMMON 1247 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 MODE 55 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 OPCODE 3840 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 11789 


ENTRY POINTS 
Address Type Name 


0-00000000 


INIT_COMMONS 


13 
INIT_ COMMONS Ip-Se -1984 00:02:54 
~8ep-19 4 90:98:38 
VARIABLES 
Address Type Name Address Type Name 
42 CHAR I0$_ABORT - 8 34D CHAR IO$_ACCESS 
5 CHAR 10$_ACPCONTROL - 483 CHAR IO$S_AVAILABLE 
CHAR 10$_CLEAN -00 8 CHAR IO$_CREATE 
5 CHAR IO$_DEACCESS - CHAR IOS_DELETE 
6D CHAR 10$_DIAGNOSE - 65 CHAR IO$_ORVCLR 
4 CHAR 10$_DSE -00 AJ CHAR IO$_ERASETAPE 
6 CHAR 10$_FORMAT -00000071 CHAR IOS_INITIALIZE 
14 CHAR IO0$_LOADMCODE - 8 Al CHAR IO$_MODIFY 
2 CHAR 10$_| T - 00 CHAR I0$_NOP 
CHAR 10$_OF FSET - 4 gee CHAR I0$_PACKACK 
QO CHAR I0$_QSTOP -00 3 EF CHAR IOS_RDSTATS 
1 CHAR I0$_READCSR -000 StH CHAR I0$_READHEAD 
CHAR I10$_READLBLK -Q0000013F CHAR I10$_READPBLK 
-00000 CHAR 10$_READPRESET -00000195 CHAR IO$_READTRACKD 
wisest A CHAR 10$_READVBLK -0000045A CHAR I0$_READWTHBUF 
84 CHAR 10$_READWTHXBUF -0000004D CHAR I0$_RECAL 
=0000007C CHAR IO$_RELEASE ~QO0001AB CHAR IO$_REREADN 
~popn seg CHAR 10$_REREADP “QOO0000CA CHAR IOS_RETCENTER 
2E6 CHAR I0$_REWIND -000002C9 CHAR I0$_REWINDOFF 
“O00000FC CHAR I0$_SEARCH -00000 s¢ CHAR I0$_SEEK 
-00000231 CHAR 10$_SENSECHAR -00000309 CHAR I10$_SENSEMODE 
=0000021D CHAR I0$_SETCHAR -000003B8 CHAR I0$_SETCLOCK 
CHAR I10$_SETCLOCKP ~Pop OR SER CHAR 10$_SETMODE 
-00000 34 CHAR I0$_SKIPFILE ~Q00002FA CHAR I0$_SKIPRECORD 
9 ¢ 10$_SPACEF ILE ~QO00010E CHAR I10$_SPACERECORD 
-000003D7 CHAR IOS_STARTDATA -000000B4 CHAR I0$_STARTDATAP 
-00000037 CHAR I0$_STARTMPROC -Q000020F CHAR I0$_STARTSPNDL 
=00000059 CHAR I0$_STOP -0000000D CHAR I0$_UNLOAD 
-0000046B CHAR I0$_WRITEBUFNCRC ~QO00011E CHAR I0$_WRITECHECK 
missed 4 CHAR IO$_WRITECHECKH -QOOO03FF CHAR I10$_WRITECSR 
1 ; CHAR 10$_WRITEHEAD “ORB SAE CHAR IOS_WRITELBLK 
=00000247 CHAR I10$_WRITEMARK -00000314 CHAR I0$_WRITEOF 
=0000012A CHAR I10$_WRITEPBLK -000001C9 CHAR IO$_WRITERET 
-000001 ; CHAR I10$_WRITETRACKD Ronen ES CHAR 10$_WRITEVBLK 
-00000448 CHAR 10$_WRITEWTHBUF -000002 CHAR IOS_WRTTMKR 
-000004A1 CHAR Q10_STRING 
ARRAYS 
Add:ess Type Name Bytes Dimensions 


4-00000000 CHAR MODES 55 (0:4) 
5-00000000 CHAR OPCODES 3840 (0:255) 


AN Pegs. page 
ER: CERF .SRCJERF INICOM.FOR; 


TWIT COMMONS ife}e Bep-1obe 99:98:38 «— UTRSUmSRASTEN:LERE SecCJERFINICOM.FORST® | 


COMMAND QUALIFIERS 

FORTRAN /LIS=LIS$:ERFINICOM/OBJ=0BJ$:ERFINICOM MSRCS:ERFINICOM 
/CHECK=(NOBOUNDS , OVERFLOW , NOUNDERF LOW) 
/STAMoAnDe (WOSTH A NOSOURCE FORM) | 


/SHOW= (NOPRE PROCESSOR ONDINCLODE MA 
/F77 /NOG_. FLOATING 114 SDPTIATIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE 


COMPILATION STATISTICS 


un Time 9.86 seconds 
peng Time: 19.67 seconds 
Page Faults: 73 
Dynamic Memory: 69 pages 


/NOMACHINE_CODE /CONTINUATIONS=19 


et 
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